home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON03 / ACT03A / L03B1.DIR / scripts_1_Main Scripts.ls < prev    next >
Encoding:
Text File  |  2003-09-23  |  695 b   |  37 lines
  1. on startMovie
  2.   startLib()
  3. end
  4.  
  5. on stopMovie
  6.   stopLib()
  7. end
  8.  
  9. on initActivity
  10. end
  11.  
  12. on animateSpeaker speakerSpr, audioList
  13.   repeat with audio in audioList
  14.     puppetSound(audio & ",prompt", 1)
  15.     updateStage()
  16.     i = 1
  17.     repeat while soundBusy(1)
  18.       set the member of sprite speakerSpr to member("speaker," & i, castLib("UI").castLibNum)
  19.       updateStage()
  20.       wait(0.20000000000000001)
  21.       i = i + 1
  22.       if i = 3 then
  23.         i = 1
  24.       end if
  25.     end repeat
  26.     set the member of sprite speakerSpr to member("speaker", castLib("UI").castLibNum)
  27.     updateStage()
  28.   end repeat
  29. end
  30.  
  31. on wait t
  32.   startTimer()
  33.   repeat while the timer < (60 * t)
  34.     updateStage()
  35.   end repeat
  36. end
  37.